home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / TPUG Xtras / Xtras / progdisk.d64 / super mastermind (.txt) < prev    next >
Commodore BASIC  |  2009-02-07  |  11KB  |  388 lines
  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  4. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  5. 5 [153]"hhhhhhh`  
  6. 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  7. 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
  8. 35 IFUW=0ANDNC=0THENSYSUU,15
  9. 36 IF(UW=0ANDNC=1)ANDUZ=1THENSYSUU,15
  10. 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
  11. 45 GETUI$:IFUI$=""THEN45
  12. 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO70
  13. 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
  14. 60 IFUR=ULTHEN45
  15. 65 GOSUB95:UR$=UR$+UI$:IFNC=1THENGOSUB7000
  16. 67 PRINTUI$;:GOTO45
  17. 70 IFUR$=UX$THENPRINT"[157] ";:GOTO145
  18. 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
  19. 80 UR$=LEFT$(UR$,UI):PRINT:RETURN
  20. 95 IFLEN(US$)=0THEN110
  21. 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
  22. 105 RETURN
  23. 110 IFUA=46THENRETURN
  24. 115 IFUA=32ANDUR<>0THENRETURN
  25. 120 IFUA>47ANDUA<58THENRETURN
  26. 125 IFUA>64ANDUA<91THENRETURN
  27. 130 IFUA<193ORUA>218THENUI$="":RETURN
  28. 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
  29. 140 RETURN
  30. 145 GOSUB170:POKE251,0:POKE252,US/256:POKE253,0:POKE254,UF:SYSUV:ZX=PEEK(UX):ZY=PEEK(UY)
  31. 147 IFUW=0THENPOKE253,0:POKE254,200:POKE251,0:POKE252,216:SYSUV
  32. 150 UZ=1:UV%=PEEK(UT):GOTO300
  33. 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:IFUW=0THENPOKEUY,ZY:POKEUX,ZX
  34. 156 IFUW=0THENPOKE253,0:POKE254,216:POKE251,0:POKE252,200:SYSUV
  35. 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV
  36. 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
  37. 170 U1%=PEEK(U1):U2%=PEEK(U2):U3%=PEEK(U3):U4%=PEEK(U4)
  38. 175 UJ$=US$:UK$=UG$:UL$=UT$:UJ=UP:UK=UL:RETURN
  39. 300 PRINT"[147]":POKEUT,UU%:IFUW=0THENPOKEUY,0:POKEUX,13:IFNC=1THENPRINT"[155]";
  40. 305 PRINT"             SUPER MASTERMIND"
  41. 310 PRINT"    --------------------------------"
  42. 315 PRINT"       [158]1.   INSTRUCTIONS PLEASE[155]"
  43. 320 PRINT"       2.   BEGIN THE GAME"
  44. 323 PRINT"       3.   PLEASE END THE GAME"
  45. 335 PRINT"    --------------------------------"
  46. 340 PRINT"    PRESS A NUMBER KEY (1,2 OR 3)  [146][157] [157]";
  47. 343 PRINT"               [158]...AND PRESS RETURN[155]":PRINT"[145][145][145]" TAB(34)
  48. 345 UL=1:US$="123"
  49. 347 GOSUB35:US$=""
  50. 350 ONVAL(UR$)GOSUB400,1000,390
  51. 355 GOTO300
  52. 370 IFUZ=1THENSYSUP%:GOTO155
  53. 375 RETURN
  54. 390 SYSUE:PRINT"[154][147]":IFUW=0THENPOKEUY,6:POKEUX,14:SYSUU,14
  55. 395 CLR:END
  56. 400 PRINT"[147]":POKEUT,UL%:IFUW=0THENPOKEUY,0:POKEUX,13
  57. 405 UT$=" [158][211]UPER[205]ASTERMIND[155]":UH=1:UP=0:UG$="[158][201]NSTRUCTIONS":GOSUB850
  58. 408 PRINT"[158]           [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  59. 410 PRINT"          [158]([211][213][208][197][210][160][160][205][193][211][212][197][210][205][201][206][196][158])"
  60. 411 PRINT"[158]           [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][155]"
  61. 412 PRINT"      [201]N THE GAME OF [211]UPER [205]ASTERMIND, "
  62. 413 PRINT" THE COMPUTER CREATES A CODE MADE UP OF"
  63. 414 PRINT" FIVE DIFFERENT COLORS WHICH YOU, THE "
  64. 415 PRINT" PLAYER MUST GUESS.  ([196][197][196][213][195][212][201][214][197][160][204][207][199][201][195])":PRINT" [212]HESE ";
  65. 416 PRINT"COLORS ARE CHOSEN BY TYPING THE":PRINT" LETTER ENCLOSED IN BRACKETS:"
  66. 417 PRINT" [210]ED   ([210][155]) [207]RANGE([150][207][155]) [217]ELLOW([158][217][155]) [199]REEN ([199][155])";
  67. 418 PRINT" [194]LUE  ([194][155]) [212]AN   ([152][212][155]) [208]URPLE([156][208][155]) [215]HITE ([215][155])";
  68. 419 PRINT" [194]LANK (-)":GOSUB835:GOSUB850
  69. 420 PRINT"     [217]OU MUST SELECT A FIVE COLOR "
  70. 421 PRINT" COMBINATION AND [210][197][212][213][210][206][146] TO CONTINUE."
  71. 422 PRINT"      [197]ACH TIME YOU MAKE A GUESS, THE "
  72. 423 PRINT" COMPUTER SHOWS YOU HOW CLOSE YOU ARE "
  73. 424 PRINT" TO GUESSING THE CODE.  [193] WHITE SPOT  "
  74. 425 PRINT" INDICATES A CORRECT COLOR.  [193] BLUE  "
  75. 426 PRINT" CIRCLE INDICATES A CORRECT COLOR AT  "
  76. 427 PRINT" A CORRECT LOCATION IN THE CODE."
  77. 428 PRINT" [158][197]XAMPLE SCORES FOLLOW:[155]":GOSUB835
  78. 429 GOSUB850:PRINT"[147]"CHR$(142)
  79. 430 PRINT" [209][155]     MEANS ONE COLOR ONLY IS CORRECT."
  80. 431 PRINT"       IT IS IN THE WRONG LOCATION."
  81. 432 PRINT" [154][215][155]     MEANS ONE COLOR ONLY IS CORRECT."
  82. 433 PRINT"       IT IS IN THE CORRECT LOCATION."
  83. 435 PRINT" [154][215][215][209][209][155]  MEANS TWO CORRECT COLORS IN THE"
  84. 436 PRINT"       CORRECT LOCATION AND TWO CORRECT"
  85. 437 PRINT"       COLORS IN THE WRONG LOCATION."
  86. 438 PRINT"       ONE COLOR GUESSED IS NOT CORRECT.";
  87. 439 PRINT" [154][215][215][215][209][209][155] MEANS THREE CORRECT COLORS IN THE";
  88. 440 PRINT"       CORRECT LOCATION AND TWO CORRECT"
  89. 441 PRINT"       COLORS IN THE WRONG LOCATION."
  90. 442 PRINT"       ALL FIVE COLORS ARE CORRECT."
  91. 444 PRINT" [154][215][215][215][215][215][155] MEANS ALL FIVE COLORS ARE IN"
  92. 445 PRINT"       THE CORRECT LOCATION."
  93. 446 GOSUB 835:GOSUB 850
  94. 447 PRINTCHR$(14)
  95. 452 PRINT" [212]HERE ARE THREE LEVELS OF DIFFICULTY"
  96. 453 PRINT" AT WHICH YOU MAY PLAY."
  97. 454 PRINT" [158][204]EVEL 1:[155] [212]HERE ARE NO BLANKS IN THE"
  98. 455 PRINT"          CODE AND NO COLOR IS REPEATED.";
  99. 456 PRINT" [158][204]EVEL 2:[155] [212]HERE ARE NO BLANKS IN THE"
  100. 457 PRINT"          CODE AND COLORS ARE REPEATED."
  101. 458 PRINT" [158][204]EVEL 3:[155] [194]LANKS MAY BE USED IN THE"
  102. 459 PRINT"          CODE.  [195]OLORS AND/OR BLANKS             MAY BE REPEATED."
  103. 485 GOSUB835
  104. 490 IFUZ=1THENSYSUP%:GOTO155
  105. 495 RETURN
  106. 500 PRINT"[147]":POKEUT,UL%:IFUW=0THENPOKEUY,2:POKEUX,10
  107. 501 UT$=" [205]ASTERMIND":UH=1:UP=0:UG$="[212]EACHER [201]NST":GOSUB850
  108. 502 PRINT"     [212]O THE BEST OF OUR KNOWLEDGE,"
  109. 503 PRINT"     THIS PROGRAM IS IN THE PUBLIC"
  110. 504 PRINT"     DOMAIN.  [201]F THIS IS NOT TRUE,"
  111. 505 PRINT"     PLEASE CONTACT:"
  112. 506 PRINT"      [195][207][205][205][207][196][207][210][197][160][194][213][211][201][206][197][211][211][160][205][193][195][200][201][206][197][211]"
  113. 507 PRINT"          3370 [208]HARMACY [193]VE.
  114. 508 [153]"          ATNGINCOURT, (null)NTARIO"
  115. 509 [153]"          LENANADA, (null)1(null) 2(null)4"
  116. 510 [153]"          (416) 499-4292"
  117. 511 UH[178]1:[141]835:[141]850
  118. 512 [153]"      (null)ROGRAM (null)AME:  (null)ASTERMIND"
  119. 513 [153]"      (null)RITTEN BY  :  STR$AVID (null)WAIM"
  120. 514 [153]"      (null)EVISED BY  :  MID$AN (null)AWCZAK"
  121. 515 [153]"      (null)HIS PROGRAM WILL RUN ON ANY
  122. 516 PRINT"         [194][193][211][201][195][160]2.0 [208][197][212] [195]OMPUTER
  123. 517 [153]"         PEEKATN(null)RIGHT$LEN 4.0 (null)VAL(null)CLOSELENOMPUTER
  124. 518 PRINT"         8032 [195][194][205] [195]OMPUTER
  125. 519 [153]"         LENOMMODORE 64 LENOMPUTER
  126. 585 GOSUB835
  127. 590 IFUZ=1THENSYSUP%:GOTO155
  128. 595 RETURN
  129. 700 PRINTUC$"[147]BEFORE RUNNING THIS PROGRAM ON AN 8032
  130. 705 [153]"      LOAD THE 'CBM 4032' PROGRAM":[128]
  131. 800 [153]"LOAD";:[151]UT,UU%:[139]UW[178]0[167][151]UY,1:[151]UX,14
  132. 801 [129]I[178]1[164]38:[153]" WAIT";:[130]
  133. 802 [129]I[178]1[164]22:[153]"CMD WAIT";:[130]
  134. 803 [129]I[178]1[164]37:[153]"CMDCMD WAIT";:[130]
  135. 804 [129]I[178]1[164]22:[153]"ONCMD WAIT";:[130]
  136. 805 [153]"STEP  WAIT
  137. 806 PRINT" [146]   [146][169]
  138. 807 [153]" WAIT  TAB((null)WAIT O M M O D O R E
  139. 808 PRINT"[223]  [146]
  140. 809 [153]"EDUCATIONAL
  141. 810 PRINT"SOFTWARE
  142. 811 [153]"1983
  143. 812 PRINTLEFT$(UD$,24);"PRESS SPACE BAR OR WAIT[146]"UC$:UI=0
  144. 813 GETUI$:IFUI$<>" "THENUI=UI+1:IFUI<250THEN813
  145. 814 GOTO300
  146. 835 POKEUN,0:PRINTLEFT$(UD$,24);"PRESS SPACE BAR TO CONTINUE[146]"
  147. 840 GETUI$:IFUI$<>" "THEN840
  148. 845 RETURN
  149. 850 UP=UP+1:PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)"[155]"
  150. 855 PRINT" --------------------------------------"
  151. 860 IFUH=0THENPRINTLEFT$(UD$,24);LEFT$(UP$,7);"HELP - PRESS   H <RETURN>"
  152. 865 UH=0:PRINT"":RETURN
  153. 875 PRINTLEFT$(UD$,24);"           ONE MOMENT PLEASE...     ":RETURN
  154. 900 UX$="H":US=32768:U1=196:U2=197:U3=198:U4=216:UC=167:UB=1024:UD=1084:UE=1105
  155. 901 UT=59468:UU%=12:UL%=14:UP%=1158:UN=158:POKE50003,0:UW=PEEK(50003):UF=PEEK(53)
  156. 902 IFUW=0THENUS=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UB=2048:UX=53280:UD=2064:
  157. 903 IFUW=0THENUT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087
  158. 904 UC$=CHR$(155):UV=1214:IFUW=0THENUF=196:UV=2238
  159. 905 UD$="":UP$="                                      "
  160. 906 IFUW=0THENCL$(1)="":CL$(2)="[129]":CL$(3)="[158]":CL$(4)="":CL$(5)="":CL$(6)="[152]"
  161. 907 IFUW=0THENCL$(7)="[156]":CL$(8)="":CL$(9)="[159]"
  162. 908 DIMN$(20)
  163. 909 RETURN
  164. 910 GOSUB900:POKE53280,6:PRINT"[147]":PRINT"[160]":REM SHIFTED SPACE
  165. 915 IFPEEK(US+40)<>96THEN700
  166. 920 IF(FRE(0)-(SGN(FRE(0))<0)*65536)>500THEN935
  167. 925 PRINTUC$"[147]THIS MACHINE DOES NOT HAVE ENOUGH"
  168. 930 PRINT"MEMORY TO RUN THIS PROGRAM !":END
  169. 935 PRINT"[147]"UC$:IFUW=0THEN965
  170. 940 IFUF=60ORUF=108ORUF=124THEN950
  171. 945 POKE52,0:POKE53,UF-4:CLR:GOSUB900
  172. 950 IFUW=160THENPOKE1103,88:POKE1104,228:POKE1107,85:POKE1111,228:GOTO965
  173. 955 IFUW<>1THENPRINT"[147]THIS PGM WILL NOT WORK ON THIS MACHINE!":END
  174. 960 POKE1103,49:POKE1104,230:POKE1107,46:POKE1111,230:GOTO965
  175. 965 SYSUD
  176. 970 GOTO300
  177. 1000 IFUZ=1THENSYSUP%:SYSUP%:UZ=0
  178. 1001 PRINT"[147]"UC$;:RESTORE:IFUW=0THENPOKEUY,0:POKEUX,0:NC=1
  179. 1003 REM << C64 VERSION: JAN SAWCZAK >
  180. 1007 IFUW<>0THENFORGX=1TO9:CL$(GX)="":NEXT
  181. 1170 DEF FNR(X)=INT(RND(1)*X)+1
  182. 1180 L$(1)="R":L$(2)="O":L$(3)="Y"
  183. 1190 L$(4)="G":L$(5)="B":L$(6)="T"
  184. 1200 L$(7)="P":L$(8)="W":L$(9)="-"
  185. 1210 D$=""
  186. 1260 REM GET THE LEVEL NUMBER
  187. 1261 POKE53280,13:PRINT"[147][158]           LEVEL OF DIFFICULTY"
  188. 1262 PRINT" 1: FIRST LEVEL"
  189. 1264 PRINT" 2: SECOND LEVEL"
  190. 1266 PRINT" 3: THIRD LEVEL"
  191. 1268 PRINT"    AND THEN PRESS RETURN[146][145][145][145][145][145]"
  192. 1269 PRINT" ENTER THE LEVEL NUMBER:  1,2 OR 3 ";
  193. 1270 US$="123H":UL=1:K9%=1:GOSUB 35:L=VAL(UR$):K9%=0
  194. 1280 REM CHECK FOR ZERO (NO GAME)
  195. 1290 IF L=0 THEN 1790
  196. 1300 POKE UT,UU%
  197. 1310 REM MAKE A CODE OF CORRECT LEVEL
  198. 1320 PRINT"[147]"
  199. 1330 ON L GOSUB 2180,2360,2420
  200. 1340 REM ANNOUNCE BEGINNING OF GAME
  201. 1350 PRINT"[147]        A CODE HAS BEEN CHOSEN:
  202. 1360 [153]"        YOU HAVE 20 GUESSES.
  203. 1370 FORJ8=1TO2500:NEXT
  204. 1380 POKE53280,0
  205. 1390 GOSUB 2790
  206. 1400 FOR N=1 TO 20
  207. 1410 REM GET THE GUESS
  208. 1420 GOSUB 3124
  209. 1430 REM SCORE THE GUESS
  210. 1440 REM SCORE LIKE COLORS WHITE
  211. 1450 GOSUB 2480
  212. 1460 REM SCORE CORRECT PLACEMENT BLACK
  213. 1470 GOSUB 2680
  214. 1480 REM WRITE THE GUESS AND SCORE
  215. 1490 GOSUB 2760
  216. 1500 FOR I=1 TO 5
  217. 1510 S$(I)=" "
  218. 1520 NEXT I
  219. 1530 REM IS THE GUESS TOTALLY CORRECT
  220. 1540 IF K>5 THEN 1670
  221. 1550 NEXT N
  222. 1560 REM IF YOU GET TO HERE
  223. 1570 GOSUB6000
  224. 1580 PRINT""
  225. 1590 PRINT,,"  SORRY, YOU USED"
  226. 1600 PRINT,,"  UP ALL YOUR"
  227. 1610 PRINT,,"  GUESSES.
  228. 1620 [153],,"  BETTER LUCK"
  229. 1630 [153],,"  NEXT TIME."
  230. 1640 [153],,"  CORRECT CODE:"
  231. 1650 [153] ,,"  ";:UI$[178]C$(1):[141]7000:[153]C$(1);
  232. 1651 UI$[178]C$(2):[141]7000:[153]C$(2);
  233. 1652 UI$[178]C$(3):[141]7000:[153]C$(3);
  234. 1653 UI$[178]C$(4):[141]7000:[153]C$(4);
  235. 1654 UI$[178]C$(5):[141]7000:[153]C$(5);
  236. 1655 [139]UW[178]0[167][153]"CLR";
  237. 1657 [153]""
  238. 1660 [137] 1740
  239. 1670 [143] JACKPOT, YOU GUESSED THE CODE!
  240. 1680 [141]6000:[153]""
  241. 1690 [153],,"  CONGRATULATIONS,"
  242. 1700 [153],,"  YOU WON IN"
  243. 1710 [153],," "N;"GUESSES"
  244. 1720 [143] HOW ABOUT ANOTHER GAME?
  245. 1730 [153]
  246. 1740 [153],,"  DO YOU WANT"
  247. 1750 [153],,"  ANOTHER GAME? "
  248. 1752 [153],,"SYS  Y / N +RETURN ";
  249. 1760 US$[178]"YNH":UL[178]1:K9%[178]1:[141]35:B$[178]UR$:K9%[178]0
  250. 1775 [139]UW[178]0[167][153]"LIST";
  251. 1780 [139] B$[178]"Y" [167] [140]:[137] 1260
  252. 1790 NC[178]0:[156]:[141]900:[137]300
  253. 1795 [143]
  254. 1800 [143]
  255. 2180 [143] SUB FOR NO DUPES
  256. 2190 [129] I[178]1 [164] 5
  257. 2200 C(I)[178][165]R(8)
  258. 2210 [130] I
  259. 2220 A[178]0
  260. 2230 [129] I[178]1 [164] 5
  261. 2240 [129] J[178]1 [164] 5
  262. 2250 [139] J[179][178]I [167] 2290
  263. 2260 [139] C(I)[179][177]C(J) [167] 2290
  264. 2270 C(J)[178][165]R(8)
  265. 2280 A[178]A[170]1
  266. 2290 [130] J
  267. 2300 [130] I
  268. 2310 [139] A[177]0 [167] 2220
  269. 2320 [129] I[178]1 [164] 5
  270. 2330 C$(I)[178]L$(C(I))
  271. 2340 [130] I
  272. 2350 [142]
  273. 2360 [143] SUB FOR DUPES
  274. 2370 [129] I[178]1 [164] 5
  275. 2380 A[178][165]R(8)
  276. 2390 C$(I)[178]L$(A)
  277. 2400 [130] I
  278. 2410 [142]
  279. 2420 [143] SUB TO INCLUDE SPACES
  280. 2430 [129] I[178]1 [164] 5
  281. 2440 A[178][165]R(9)
  282. 2450 C$(I)[178]L$(A)
  283. 2460 [130] I
  284. 2470 [142]
  285. 2480 [143] SUB TO SCORE WHITE
  286. 2490 K[178]1
  287. 2500 [129] I[178]1 [164] 5
  288. 2510 P(I)[178]0
  289. 2520 [130] I
  290. 2530 [129] I[178]1 [164] 5
  291. 2540 [129] J[178]1 [164] 5
  292. 2550 [139] K[178]1 [167] 2600
  293. 2560 L[178]K[171]1
  294. 2570 [129] M[178]1 [164] L
  295. 2580 [139] J[178]P(M) [167] 2610
  296. 2590 [130] M
  297. 2600 [139] G$(J)[178]C$(I) [167] 2630
  298. 2610 [130] J
  299. 2620 [137] 2660
  300. 2630 P(K)[178]J
  301. 2640 S$(K)[178]"(null)":[139]UW[178]0[167]S$(K)[178]""[170]"(null)"
  302. 2650 K[178]K[170]1
  303. 2660 [130] I
  304. 2670 [142]
  305. 2680 [143] SUB TO SCORE BLACK
  306. 2690 K[178]1
  307. 2700 [129] I[178]1 [164] 5
  308. 2710 [139] G$(I)[179][177]C$(I) [167] 2740
  309. 2720 S$(K)[178]"(null)":[139]UW[178]0[167]S$(K)[178]"CONT"[170]"(null)"
  310. 2730 K[178]K[170]1
  311. 2740 [130] I
  312. 2750 [142]
  313. 2760 [143] WRITE SCORE LINE
  314. 2765 [139]UW[178]0[167][153]"";
  315. 2770 [153] "";[200](D$,N[170]3);"";S$(1);S$(2);S$(3);S$(4);S$(5)
  316. 2775 [139]UW[178]0[167][153]"CLR";
  317. 2780 [142]
  318. 2790 [143] DRAW PLAYING BOARD
  319. 2800 [153]"LOAD ORTANTANTAN=TANTANTANTANTANTAN=TANTANTANTANTAN^"
  320. 2810 [153]" (null)CLOSECLOSECLOSE(null)CLOSE CLOSECLOSECLOSECLOSE(null)CLOSECLOSECLOSECLOSECLOSE(null)"
  321. 2820 [153]" -TANTANTAN(null)TANTANTANTANTANTAN(null)TANTANTANTANTAN<"
  322. 2830 [129] I[178]1 [164] 20
  323. 2840 [153]" (null)CLOSECLOSECLOSE(null) CLOSECLOSECLOSECLOSECLOSE(null)CLOSECLOSECLOSECLOSECLOSE(null)"
  324. 2850 [130] I
  325. 2860 [153]" /TANTANTAN>TANTANTANTANTANTAN>TANTANTANTANTANEXP"
  326. 2870 [139] UW[178]0[167][153]"";
  327. 2875 [153]"#GUESSSCORES U P E R "
  328. 2879 [139] UW[178]0[167][153]"LIST";
  329. 2880 [153]
  330. 2890 [129] I[178]1 [164] 20
  331. 2900 [153]"";I
  332. 2910 [130] I
  333. 2911 [153]""[163]24);CL$(1);" R   RED    "
  334. 2912 [153][163]24);CL$(2);" O   ORANGE "
  335. 2913 [153][163]24);CL$(3);" Y   YELLOW "
  336. 2914 [153][163]24);CL$(4);" G   GREEN  "
  337. 2915 [153][163]24);CL$(5);" B   BLUE   "
  338. 2916 [153][163]24);CL$(6);" T   TAN    "
  339. 2917 [153][163]24);CL$(7);" P   PURPLE "
  340. 2918 [153][163]24);CL$(8);" W   WHITE  "
  341. 2919 [153][163]24);CL$(9);" -   BLANK  "
  342. 2920 [139]UW[178]0[167][153]"";
  343. 2925 [129] I[178]1 [164] 20
  344. 2930 [135] N$(I)
  345. 2940 [153] [200](D$,I[170]3);[163]19);N$(I)
  346. 2950 [130] I
  347. 2955 [139] UW[178]0[167][153]"LIST";
  348. 2960 [131] "M"," ","A"," ","S"," ","T"," ","E"," ","R"
  349. 2970 [131] " ","M"," ","I"," ","N"," ","D"," "
  350. 2971 [139]UW[178]0[167][153]"";
  351. 2972 [153][200](UD$,22)[163]22)"NEED HELP? SYSTYPE H":[153][163]22)"AND PRESS RETURN.";
  352. 2975 [139]UW[178]0[167][153]"CLR";
  353. 2980 [142]
  354. 3124 SP$[178]"":UR$[178]""
  355. 3125 [153] [200](D$,N[170]3);"";[200](SP$,1)"     CMDCMDCMDCMDCMD";
  356. 3130 US$[178]"PRGBWTYO-H"
  357. 3140 UL[178]5
  358. 3150 [141]35
  359. 3155 [139] [195](UR$)[179]5 [167] 3125
  360. 3160 [129] J[178]1 [164] 5
  361. 3170   G$(J)[178][202](UR$,J,1)
  362. 3180 [130] J
  363. 3190 [142]
  364. 6000 [153]""[163]24);"            "
  365. 6010 [153][163]24);"            "
  366. 6020 [153][163]24);"            "
  367. 6030 [153][163]24);"            "
  368. 6040 [153][163]24);"            "
  369. 6050 [153][163]24);"            "
  370. 6060 [153][163]24);"            "
  371. 6070 [153][163]24);"            "
  372. 6080 [153][163]24);"            "
  373. 6090 [153][163]24);"            "
  374. 6100 [153][163]24);"            "
  375. 6110 [142]
  376. 7000 [143] << PRINT OUT COLOURS GUESSED >>
  377. 7005 [139]K9%[178]1[167][142]
  378. 7010 [139]UI$[178]"R"[167][153]CL$(1);:[142]
  379. 7020 [139]UI$[178]"O"[167][153]CL$(2);:[142]
  380. 7030 [139]UI$[178]"Y"[167][153]CL$(3);:[142]
  381. 7040 [139]UI$[178]"G"[167][153]CL$(4);:[142]
  382. 7050 [139]UI$[178]"B"[167][153]CL$(5);:[142]
  383. 7060 [139]UI$[178]"T"[167][153]CL$(6);:[142]
  384. 7070 [139]UI$[178]"P"[167][153]CL$(7);:[142]
  385. 7080 [139]UI$[178]"W"[167][153]CL$(8);:[142]
  386. 7090 [139]UI$[178]"-"[167][153]CL$(9);:[142]
  387. 7095 [142]
  388.